home *** CD-ROM | disk | FTP | other *** search
/ Fischer's Erotic Encyclopedia / Eros.mdf / CSECTION / 00030_ExitFrame .ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  770 b   |  28 lines

  1. on exitFrame
  2.   global voicePlaying, VoxTimer, section, subsect, linkReturn, filePathDelimiter
  3.   if voicePlaying = 1 then
  4.     if (VoxTimer + 60) < the ticks then
  5.       if soundBusy(1) = 0 then
  6.         fadeMusicUp()
  7.         set voicePlaying to 0
  8.       end if
  9.     end if
  10.   end if
  11.   if soundBusy(2) = 0 then
  12.     sound playFile 2, the pathName & section & filePathDelimiter & "MUSIC" & filePathDelimiter & the name of cast (2000 + subsect)
  13.   end if
  14.   if count(linkReturn) > 0 then
  15.     puppetSprite(27, 1)
  16.     if the castNum of sprite 27 < 37 then
  17.       set the castNum of sprite 27 to the castNum of sprite 27 + 1
  18.       updateStage()
  19.     else
  20.       set the castNum of sprite 27 to 33
  21.       updateStage()
  22.     end if
  23.   else
  24.     puppetSprite(27, 0)
  25.   end if
  26.   go(the frame)
  27. end
  28.